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Acerca de este libro 


Los programas de este libro están escritos 
en una versión estándar de BASIC. uno 
de los lenguajes de ordenador. y hay 
líneas de conversión para la mayoría de 
los principales tipos de ordenadores 
personales. Busca a la izquierda del 
listado del programa el símbolo que 
representa a tu ordenador y después mira 
en la lista de cambios los necesarios para 
la versión correcta de esa línea. Los 
símbolos para los distintos ordenadores 
son los siguientes: 
A Commodore 64 y VIC 20 

Spectrum 
e Apple 
* DRAGON 
m MSX 


Acerca de los juegos 


Los juegos de este libro son muy sencillos. 
Se han creado con la intención de 
ayudarte a acostumbrarte a tu ordenador 
y al lenguaje BASIC. tecleando los 
programas. depurándolos y 
comprendiendo cómo funcionan. Los 
programas no tienen gráficos o sonido 
porque varían mucho de un ordenador a 
otro. pero puedes intentar añadírselos. 
Puedes cambiar y adaptar los juegos a 
tu gusto. Detrás de cada listado de 
programa se sugieren maneras de hacerlo. 
pero también puedes experimentar con 
tus propias ideas. De esta manera. puedes 
usar los juegos de este libro como xo 
para conseguir juegos más largos y más 
complicados hechos por ti mismo. 


Microenigma ha sido escrito por Les Howarth y 
Combate de monstruos por Adrian Hall 


Mustrado por Rob McCaig 
Editado por Jenny Tyler 
Diseñado por Roger Priddy 


Queda prohibida la reproducción total o parcial de la 
presente obra bajo cualquiera de sus formas, gráficas o 
audiovisuales sin la autorización previa y escrita del 
editor, excepto citas en revistas, diarios o libros, 


siempre que se mencione la procedencia de las mismas. 


Teclear y ejecutar los programas 


Recuerda que puede resultar difícil y 
llevar mucho tiempo teclear 
correctamente los programas, incluso si 
éstos son cortos. Comprueba cada línea 
que introduzcas. ya que es fácil cometer 
errores aunque tengas bastante 
experiencia. 

Cuando hayas introducido la totalidad 
del programa. compruébalo otra vez, 
asegurándote de que no te has saltado 
ninguna línea. espacios o signos de 
puntuación. 

Para empezar el juego, teclea RUN. 
Antes de empezar. lee la introducción del 
juego para tener una idea de lo que se 
supone que éste debe hacer. Si el 
programa no funciona correctamente, es 
bastante probable que haya un error en 
cualquier sitio: por eso, lista el programa 
y compruébalo de nuevo. 

Al acabar el juego. puede que el 
ordenador te pregunte si quieres jugar 
otra vez o. por el contrario, decir algo 
como BREAK in 200. en cuyo caso debes 
teclear RUN para jugar otra vez. 


Cambiar la velocidad 


Algunos juegos dependen de la velocidad 
de tus reacciones y del ordenador. Puede 
ser necesario ajustar la velocidad. 
Encontrarás instrucciones para hacerlo a 
continuación del listado del programa. 


merales A; 
22, 25028 Ma 


La torre del terror 


Ni 


Tienes la garganta seca, te tiemblan las piernas y te palpita el corazón; has entrado en la 
Torre del Terror... 

Pulsa A para moverte por las habitaciones. ¡¡Agh!! ¡Hay un esqueleto, después un 
fantasma y un hombre sin cabeza! Con cada nuevo susto, tu pulso aumenta 
desmesuradamente. 

¿Vas a seguir (A), o retroceder (D) para recobrarte un poco? Mira la hora; solamente 
tienes hasta la medianoche para alcanzar la cima de la Torre y el codiciado Tesoro. 
También debes estar atento a tu pulso. La locura llegará cuando alcance 150 pulsaciones. 
¡Entonces nada podrá impedir que te tires por la ventana! 


Cómo funciona 


10: Va a la sección de inicialización 
para leer los datos. 

30: RM es la habitación donde estás. 
40-50: Define la hora de comienzo y * 
el pulso. 

90: Imprime cualquier comentario 
almacenado en R$. 

100-160: Calcula el piso y la 
habitación en que estás con el valor 
de RM e imprime esta información. 
170-180: Imprime otras 
informaciones. 

190: GF es un switch que vale 1 
cuando hay algo desagradable 


10 50SUB 470 
20 LET RS="BUENA SUERTE" 
30 LET RN=O 

CUR 40 LET Ki 

A 50 LET P=50 

> AO CLS:PRINT:PRINT 

TORRE DEL TERROR" 

acanaczacacins? 

90 PRINT:PRINT Re 

100 LET Ré=**:LET FL=INTIRN/S) 

110 LET R=RM-FLESel 

120 PRINT:PRINT *ESTAS EN* 

130 1F FL=0 THEN PRINT *LA PLANTA BAJA" 

140 1F FLeó THEN PRINT *LA PLANTA SUPERIOR" 

150 1F FLJO AND FLCÓ THEN PRINT *EL PISO "¿FL delante. 

160 PRINT "EN LA MABITACION *¡R 200: Comprueba si has llegado a la 

3 170 PRINT:PRINT *LA HORA ES *3H5*.*5M5" PMe última habitación. 

> 180 PRINT:PRIMT *TU PULSO ES *¡P ¿Serías capaz de añadir 210: Selecciona una habitación para 

190 LET 6F=0 más desgracias y cambiar) — la trampilla. 

200 1F RN=30 THEM GOTO 350 sus efectos en el pulso? 220: Elige aleat 
CAMA 210 LET TR=INTIRMD(114941) Er ” 
COI 220 1F RMD(LI).6 THEN GOSUD 420 ES 

230 PRINT:PRINT "HACIA ATRAS O MACIA DELANTE (A/D) 7 eses a 
04240 LET 18=IMEYS ¿ 


ces de 290: Incrementa el tiempo. 
uy ña + po mes a ia 00: Comprueba si es medianoche. 
310: C ba si el 
270 1F 16="A* THEN LET RN=RM-1:LET P=P-5 demasiado alto. O 
280 TF Rif=-1 THEN LET Ri=9 330: Comprueba si estás en una 
10290 LET MaM+INTURMD(1)4341):1F M)59 THEM LET MaM-60:LET H=He1 habitación con trampilla. 
300 IF H=12 THEN G0TO 360 400-410: Rutina de seguir adelante. 
310 1F P)150 THEN GOTO 380 Incrementa el pulso si hay algo 
320 1F PC40 THEN LET P=40 desagradable. 


Intenta cambiar el 
límite del pulso. 


ET N=INT(RND(1)4101+10 


¿Puedes también averiguar 
cómo añadir más 
habitaciones? 


KIO 1F FL=TR AND RND(LI).S THEN GOSUB 520 ¿Qué es el Tesoro de) 420-460: Selecciona el tipo de susto 
340 GOTO 60 la Torre y cómo lo || y su incremento en el pulso. 
350 PRIMT "BIEN MECHO *:STOP tr ias ida, () 470-510: Los los datos del comienzo 
260 PRINT:PRIMT "ES MEDIANOCHE!" nt del juego (inicialización). 


370 PRINT:PRINT "DEMASIADO TARDE!*:STOP 520: Subrutina de la trampilla. 


300 PRINT *TE HAS VUELTO LOCO Y* 
390 PRINT *TE HAS TIRADO POR UNA VENTANA!*:STOP 


400 1F SFeL THEN LET P=P4SE2:LET R6="AAAANAAA! * Líneas de conversión 
410 LET P=P-1:LET RN=RM+1:RETURN 
420 LET TY=INT(RND (114341) 0 40,210,220,290,330,420,440 Reemplazar 


430 LET US=6$ (TY) RNDIL) por RMB 
de 3440 LET S=INT(RMDE1IPS)HFLATYRZ MM 40,210,220,290,330,420,440 Reemplazar 
o 450 PRINT:PRINT "DELANTE DE TI VES UN "¡us RND(A) por RMB(O) 


460 LET GF=1:RETURN kk 40,210,220,290,330,420,440 Reemplazar 
070 DIM 6813) ANDIL) por AND(-TINE) e 
480 LET 66(1)="ESQUELETO" da 60 PRINT CHRO(147):PRINT:PRINT (2) 
490 LET 05(2)="FANTASMA* 0 60 HONE:PRINT:PRIMT 
500 LET 6$13)="HOMBRE SIN CABEZA" A 240 GET 19 < ES 
510 RETURN 0 240 1d=**:1F PEEKI-163841)127 THEM GET 18 CE 


520 LET RS="CAES POR UNA TRAMPA":LET RM=RM-S:LET P=P+10:RETURN 470 DIM 69(3,15) 


AUN 1, all NA Ns 


La pirámide de las calaveras 


Una mente sin un cuerpo: es todo lo que eres desde aquel terrible accidente, hace 
tantos años, durante la construcción de la Pirámide. 

Toda tu energía mental se dedica a satisfacer las demandas del Señor Diabólico 
de los Espíritus. Todos los días introduce un número en tu mente (isi pudieras 
deshacerte de él!). Debes tirar calaveras desde la Pirámide sobre las piedras 
numeradas de debajo intentando sumar ese número. 

Pulsa 1, 2, 3 ó 4 para tirar una calavera. Debes usar cinco cada vez; ni más, ni 
menos. Consigue el número correcto y te librarás de la Maldición de la Pirámide. 


Incrementa el valor de SP en 
la línea 10 para aumentar la 
velocidad del programa. 


Ó (] 10 LET TS=O:LET 18="0*:LET SP=3 
clga20 LEY M=INT'(RND(1)430)810 
ll eLA30 CLS:PRINT 
277 40 PRINT *PIRMALDE DE LAS CALAVERAS" 

Mi so per 
60 PRINT “TIENES QUE * 
70 PRINT “CONSEGUIR ; *¡N:PRINT 
80 LET K=3000:605U8 540 

ea%0 CLS:LET Y=2 
100 FOR L=1 TO 4 
110 LET AS=STRSIII:LET Xe64241 
120 GOSUB 560 
130 NEXT 1 
140 LET A6=***:FOR 1=1 10 5 
150 LET Y=24241 
160 FOR J=L TO 143 
170 LET Xe7-1428 
180 GOSUB 560 
190 NEXT 1 
200 NEXT 1 
210 LET Y=14 
220 FOR 1=1 70 P:LET MaSTRS(1) 
230 LET X=14241:609UB 560 
240 NEXT 1 
250 LET $0 
260 FOR 1=1 10 5 
270 LET M="ELIGE FILA" 
280 LET X=0:LET Ys0:60$UB 560 

04290 LET 19=INKEYS 
300 1F 18=** THEN GOTO 290 
310 LET ReVALIIS) 
320 1F RI OR RIA THEN GOTO 290 
330 LET Y=3:LET Ke400:LET X=6+28R 
340 LET FF0 


10; Define las variables al principio 
del juego. 


20: Elige el número que debe 
conseguir el jugador. 


30-80: Imprime el mensaje de 
comienzo y espera para que el 
jugador pueda leerlo. 


90-240: Dibuja la pirámide y los 
números en su cima y en su base. 


Puede que seas capaz 

de sustituir el símbolo 

de la calavera por un 
carácter gráfico. 


Añade, si puedes, ruidos 
desagradables según 


250: Inicializa a cero el tanteo. 
260: Define el número de calaveras. 


270-280: Imprime un mensaje en 
la parte superior izquierda de la 
pantalla. 


290-300: Espera la pulsación de 
una tecla. 


310-320: Comprueba si la tecla 
pulsada está entre 1y 4 yen 
caso contrario, la pide de nuevo. 


330: X e Y son las posiciones 
de la calavera. Esta línea las 
sitúa en la parte superior de 
la pirámide. 


340: F es un switch que registra 
si el movimiento anterior era 
un rebote en el lateral 

de la pirámide. 


ja 
más calaveras 
cada vez, 


350 LET A$="0" 350-370: Imprime la calavera y 
360 G0SUB 560 espera. 
370 G0SUB 540 380: Borra la calavera. 
380 LET A$=" ":60SUB 560 

01390 1F F=0 AND Y<13 THEN LET X=X+SON(RND(1)=.5) 
400 LET Y=Ye1:LET Fa1-F asa una Ma 
410 1F YC14 THEN GOTO 350 , 
420 LET S=8+(X-1)/2 as si ha llegado al 
430 LET Xe15:LET Y=0 y 
40 Ur Joa 114*:*4STRS(S) rea, 
460 NEXT 1 
470 LET K=1000:608UB 540 470: Espera. 
480 LET D=ABS(S-N):LET TS=TS+D 480-500: Suma la diferencia entre el 

94 490 CLS:PRINT:PRINT al 
500 PRINT "TU TANTEO AHORA ES *4TS imprime este último. 
A 510: 4 la dierencia es mayor que 1, 
' vuelve a jugar otra vez. 

530 STOP 


540 FOR T=l TO K STEP SP:MEXT 7 EA e 
a, g 1 
350 RETURN una pausa durante una longitud de 
ACI 560 PRINT TABIX,YI¡AS tiempo que depende de K. 


560-570: Subrutina para alterar la 
posición X,Y del cursor en la 
pantalla. 


390: Elige la dirección del rebote. 


430-450: Imprime el tanteo. 


520: Imprime el mensaje de éxito. 


Supongo que no 
eres lo bastante 
listo como para 

cambiar los 
límites del número 
a conseguir. 


Líneas de conversión 


020,390 Reemplazar RND(1) por RND 

120,390 Reemplazar RHD(1) por RND(O) 

20,390 Reemplazar RND(1) por RND(-TIME) 

0 30,90,490 Reemplazar CLS por HONE 

430,90,490 Reemplazar CLS por PRINT CHR$(147) 

0290 19="*:1F PEEK(-16384))127 THEN GET 19 

4290 GET 16 

0560 PRINT AT Y,Xjñ3 

0560 VTAB(Y+1):HTABIX+1):PRINT AS 

4560 PRINT CHR$(19)5;FOR LL=1 TO Y; 
PRINT:MEXT:PRINT TABIX)4A$ 

mm 560 PRINTO 1932+X,A81 

* 560 LOCATE X,Y:PRINT AS 


3 0D 
ombate de monstru 
¡El combate de monstruos es un deporte para lunáticos! Esto no dice mucho a tu favor, 
el cerebro a cargo de esta masa de huesos y músculos que está a punto de luchar con 
algunos de los más desagradables monstruos del Universo. 

Como cerebro, debes hacer un montón de cálculos rápidos y precisos. Debes 
calcular el esfuerzo muscular necesario para mantener alejado al monstruo, por 
ejemplo, y esto implica multiplicar el tipo del monstruo por la distancia que lo separa 
de ti. 

Si te parece demasiado difícil, puedes pulsar el Botón del Pánico (tecla P). Debes 
entonces averiguar cuánta adrenalina necesita el cuerpo para superar la crisis, 
dividiendo el incremento de pulsaciones necesario por el suministro de oxígeno, Ten 
cuidado, no obstante, de no usar demasiado el Botón del Pánico para no hacer que se 


esfuerce el corazón, lo que podría provocar un infarto. 
Para vivir y poder luchar otra vez, debes sobrevivir 12 asaltos contra el monstruo. 


ma mo ds Cómo funciona el programa 
ex 40 CL5 20: Inicializa a cero el número de 
50 LET X=1 veces que se utiliza el Botón del 


Pánico. 
60 LET Y=6 30-60: Establece los lími 
00: tablece los limites 
20 LET N=-1 superiores del tipo de monstruo y de 
75 N=N+1 distancia. 


+1m0180 LET G=INTIRNDII)2Y4X) 70: Define el número de asaltos. 


(AND (1)4K+K) 
a E nba y 80: Define la distancia. 


110 LET X=X+.5 100-120: Incrementa los límnes 
di ti listancia T 
120 LET K=K+.5 pero DOY ncia en 


130 PRINT . 
140 PRINT pS 
150 PRINT *TIPO DE MONSTRUO : *; 230: Si la respuesta es incorrecta, 
160 PRINT 6 salta a la parte del programa donde 
170 PRINT se imprime el mensaje de fracaso. 
180 PRINT "DISTANCIA ; *j 250: Imprime un mensaje si has 
190 PRINT 1 ganado el asalto. 
200 PRINT 260: Vuelve para otro asalto. 
210 PRINT "ESFUERZO MUSCULAR ? *5 270-310: Mensaje de éxito si 
220 60SUB 570 sobrevives 12 asaltos. 
230 1F 2(>641 THEN GOTO 320 330-380: Mensaje de fracaso. 

04 240 CLS 
250 PRIMT "EL MONSTRUO SE 

MANTIENE EN LA BANSA" Sl pierdes siempre, 

260 1F N<11 THEN GOTO 75 la velocidad dellprograma 
270 PRINT "UFFF !!!!- EL NONSTRUO* incrementando el valor de 
280 PRINT "ESTA CANSADO Y HA 130 A* USE pres có, 
290 PRINT *BUSCAR OTRA VICTINA.* 
300 PRINT "SOBREVIVES PARA CONTARLO* 
310 STOP 

04 320 CLS 
330 PRINT "ACABAS DE MORIR" 
340 PRINT *REVENTADO EN LOS" 
350 PRINT "ENORMES BRAZOS DEL MONSTRUO" 
360 PRINT 


Disminuye el valor de Q 


370 PRINT "HAS SOBREVIVIDO "¿N5" ASALTOS” si te resulta fácil. 


380 STOP 
en 390 CLS 
m:400 LET UX=INTCRND(1)49+1) 
Le m01410 LET UY=INT(RND(1)99+1) 
420 LET U=UXxHY 
430 LET P=P+1 
440 IF P=4 THEN 6070 700 
450 1F P=3 THEN PRINT "ESTAS VIENDO 
LAS ESTRELLAS* 
460 PRINT "EL PANICO CONTINUA" 
470 PRINT 
480 PRINT "INCREMENTO DEL PULSO : "4 
490 PRINT "SUMINISTRO DE OXIGENO = "sWX 
500 PRINT 
510 PRINT "CANTIDAD DE ADRENALINA ? "y 
520 LET 0=100 
530 60SUB $80 
540 1F 2<)UY THEN GOTO 320 
A 550 CLS:IF NX11 THEN GOTO 75 
560 GOTO 270 
570 LET 0=0 
7580 LET 29="* 
eA590 LET AS=INKEYS 
1600 1F A$=CHR$113) THEN GOTO 680 
610 1F A$="P* THEN GOTO 390 
620 IF VAL(AS)=0 AND A$()*0* THEN GOTO 650 
1630 PRINT AS; 
640 LET 28=28+A8 
650 LET 0=0+1 


Para hacerlo más 
difícil averigua el modo 
de incrementar el número 
de asaltos. 


670 60TO 590 

680 LET 2=VALI(Z8) 

690 RETURN 
e4700 CLS 


710 PRINT *TE HA DADO UN 
ATAQUE AL CORAZON" 


400-410: Define el suministro de 


oxígeno y la cantidad de adrenalina 
necesaria. 

420: Define el incremento de 

pulsaciones. 

430-450: Incrementa la cuenta del 

Botón del Pánico, imprimiendo aviso 

después del tercero y acabando el 

juego después del cuarto. 

460-510: Imprime mensajes de 
pánico y pide respuesta. 

520: Define el valor de Q para el 

comienzo de la cuenta atrás en las 

líneas 650-660. 

530: Salta a la subrutina de 

respuesta. 

540: Si la respuesta es incorrecta, 

salta al mensaje de fracaso. 

550-560: Si es correcta, va al 
iguiente asalto o al mensaje de 

éxito. 

570-690: SUBRUTINA DE 
RESPUESTA. 

570: Inicializa a cero la cuenta. 


580: Define un espacio de memoria 
para ZS. 

590: Comprueba si se ha pulsado 
una tecla. 

600: Comprueba si la tecla pulsada 
es RETURN (CHRS(13)). Si es así, 
salta a la línea 680. 

610: Comprueba si se ha pulsado la 
tecla P y si es así, salta a la rutina 
del pánico. 

620: Si no se ha pulsado ninguna 
tecla, salta para incrementar la 
variable de conteo Q. 

630: Si se pulsa otra tecla distinta de 
RETURN o P, se imprime. 

640: Z$ contiene todas las teclas 
pulsadas en un asalto. 

650-660: Bucle de tiempo. Si Q llega 
a 1000 antes de que se haya pulsado || 
una tecla, salta al mensaje de 
fracaso. 

670: Vuelve proa comprobar la 
siguiente tecla pulsada. 

680: Convierte los números de la 
cadena Z$5 en valores colocados en Z. 
710: Mensaje de fracaso por usar 
demasiado el Botón del Pánico. 


Líneas de conversión 


A 40,240,320,390,550,700 Sustituir CLS por PRINT CHR6(147) 
0 40,240,320,390,550,700 Sustituir CLS por HOME 
1-180,90,400,410 Sustituir RND(L) por RND 

1180,90,400,410 Sustituir RNDI1) por RADIO) 

e 80,90,400,410 Sustituir RND(1) por RND(-TINE) 

0580 LET Z4="0* 


PEEK(-16384))127 THEM GET AS 
11595 1F A$=** THEN GOTO: 650 
01597 PAUSE 40 
00600 IF AS=CHRS(13) THEN PAUSE 20:60T0 480 
O610 IF A$="P* THEN PAUSE 30;G0TO 390 
00630 PRINT ASp:PAUSE 15 
LIO 660 1F 02250 THEN GOTO 320 


Tiburón 


¡Mmmmmm... las pe 
es difícil acercarte lo 


10 DIN MS(12):DIM K9(4):608UB 660 


20 LET S=0;LET T=0:LET 6:0 


30 LET U=l 


50 LET PX=2:LEY PY=2 
70 608» 600 
80 60SUB 490:605UB 440 
90 LET AX=PX:LET NY=PY 
460 100 LET 1$=INKEYS 
110 1F 1S=K$(1) THEN LET NY=NY-1 
120 1F 18=K6(2) THEN LET NX=NX+1 
130 IF 19=K$(3) THEM LET NY=NY+1 
140 1F 18=K6(4) THEM LET MX=NX-1 
150 LET X=NX:LET Y=MY;GOSUB 530 
160 1F F=1 THEN GOTO 230 
170 LET X=PX:LET Y=PY:LET Ag=" * 
180 GOSUB 640 
190 LET XsWX:LET Y=MY:LET Al 
200 G0SUB 640 
210 LET PX=NX:LET PY=MY 
220 1F PX=TX AND PY=TY THEN GOSUB 340 
230 1F PX=6X AND PY=GY THEN GOTO 280 
deL 1240 1F RND(1))U THEN 60SU3 370 
250 LET X=22:LET Y=12;LET AS=STRS(T) 
260 GOSUB 640 
270 LEY 6=6+1:60T0 90 
290 FOR P=1 TO 2000:NEXT P 


Te reto a que hagas 
más frecuente el 
movimiento del 

cazador. 


Líneas de conversión 


1310 BIN N9112,16):D1M K9(4):50SUE 660 
69 100 18=**:1F PEEKI-163481)127 THEN GET 19 
AA 100 GET 18 
1) 240,390,400,550,560 Cambiar RNDI1) por RND 
EE 240,390,400,550,560 Cambiar RMD(1) por RNDIO) 
“k 240,390,400,550,560 Cambiar RND(1) por RMD(=TINE) 
01250,600 Cambiar CLS por HOME 
AA 290,600 Cambiar CLS por PRINT CHRS(1471530 LET 
FSO5IF MS(Y,X)G)* * THEN LET Fl 
11640 PRINT AT Y,XjAS 
00 640 VTABIV):NTABIX):PRINT M8 
AA 440 PRINT CHRG(19)5:FOR LL=I 70 ISPRINT:NEXT:PRINT TABIXIJAS 
E 640 PRINTO Y3324%,Ab5 
Ak 640 LOCATE X,Y:PRINT AS 


rsonas están exquisitas! Pero, con el cazador siempre en tu cola, te 
suficiente para poder cogerlas. 
Tú eres T (de Tiburón) y puedes moverte por donde quieras pulsando las teclas A, Z, N 
y M. Vamos a ver cuántas P (Personas) puedes comerte antes de que C te cace. Hay un 
obstáculo (por supuesto). Cada vez que tengas éxito al coger y devorar un delicioso ser 
humano, te excitarás tanto que no podrás recordar para qué sirve cada tecla. 


Cómo funciona el programa 


10: Define el espacio de memoria para el 
laberinto. Salta a la subrutina que lee 
los datos del mismo. 


20: Inicializa las variables al comienzo 
del programa. 


30: Define la frecuencia de movimientos 
del cazador. 


40-50: Define las direcciones de 
movimiento de las teclas. 


60: Define la posición de comienzo del 
tiburón. 


70: Salta a la subrutina que imprime el 
laberinto, 


80: Salta a la subrutina que elige las 
posiciones del cazador y la persona. 


100-140: Calcula la nueva posición del 
tiburón según la tecla pulsada. 


150: Comprueba que esta nueva posición 
no esté en un muro. 


160: Si es un muro, no se mueve. 


170-180: Imprime un espacio en la 
antigua posición del tiburón. 


190-200: Imprime una T en la nueva 
posición del tiburón. 


210: Iguala la posición del tiburón a la 
nueva posición. 


220: Comprueba si la T y la P coinciden 
y si es asi, salta a una subrutina. 


230: Comprueba si la T y la C coinciden 
y si es así, salta al fin del juego. 


240: Mueve el cazador. 
250-260: Imprime el tanteo. 


270: Incrementa el número de 
movimientos y vuelve para ejecutar el 
siguiente. 


280: Pausa para que puedas ver si te 
han cazado. 


OA 290 CLS:PRINT "ACABAN DE CAPTURARTE !* 290-330: Imprime el mensaje y el tanteo 
300 LET S=INT(10000%(1/6)):PRINT *TU PUNTUACION ES : siel tiburón ha sido capturado. Pregunta 
310 PRINT:PRINT "OTRA PARTIDA ? (S/N) * si quieres jugar otra vez. 


320 INPUT AS:IF A$="S" THEN GOTO 20 

330 8TOP 

340 LET T=Te1:LET UsU-,03 

350 GOSUB 390:G0SUB 490 

360 RETURN 

370 LET X=GX:LET Y=9Y:LET AS= 

380 GOSUB 640;G0SUB 440; RETURN 
KI 390 LET KI=INT(RND(1)34)+1 
BIC) 400 LET K2=INT(RND(1)34)+1 

410 LET TS=K$(K1) 

420 LET KSIK1)=KS1K2):LET KS(K2)=18 

430 RETURN 

440 GOSUB 550 

450 1F X=TX AMD Y=TY THEN GOTO 440 

460 LET GX=X:LET 6Y=Y 

470 LET AS="C*:G0SUB 640 

480 RETURN 

490 G0SUB 550 

500 LET TX=X5LET TY=Y 

510 LET A4="P";G0SUB 640 

520 RETURN 


10 530 LET F=0:1F NIDS(M8(Y),X,1)()* * THEN LET F=1 


540 RETURN 

AKI 550 LET X=INT(RNDI1JH14)42 

KIMI 560 LET Y=INT(RND(1)39142 
570 G0SUB 530 
580 1F F=1 THEN GOTO 550 
590 RETURN 

OA 600 CLS:LET Y=1 
610 FOR Y=1 10 12:LET AS=M8(Y) 
420 G0SUB 640:NEXT Y 
430 RETURN 
MOA/ 1640 PRINT TAB(X,YI5AS 

450 RETURN 
660 FOR 1=1 10 12:READ MS(1):MEXT 1 
870 RETURN 
480 DATA *ODODOO0ODODO0000* 
690 DATA "0 o 
700 DATA *0 0 000 00 000 0* 
710 DATA *0 0.0 o 
720 DATA *0 0.0000. 0.0.0 
730 DATA *000 00 000 
740 DATA "O 00 0 
750 DATA *0 000.0 000 5 
760 DATA ooo 
770 DATA *0 o 
780 DATA *0O00O0O000000000* 
790 DATA "PERSONAS DEVORADAS : * 


El tanteo 
depende del 
número de 
personas 
devoradas y del de 
movimientos. 


340-360: Subrutina que incrementa el 
tanteo y la frecuencia de movimiento del 
cazador. Salta a otra subrutina para 
cambiar la función de las teclas y 
establecer la nueva posición de la 
persona. 


370-380: Subrutina que borra al cazador 
de la posición antigua y lo imprime en 
la nueva. 


390-430: Subrutina que cambia la 
función de las teclas. 


440-480: Subrutina para imprimir el 
cazador, usando otra subrutina para 
elegir una posición aleatoria. La línea 
450 comprueba que en la posición 
elegida no hay ya una persona. 


490-520: Subrutina que imprime la 
persona, usando otra subrutina para 
elegir una posición aleatoria. 


530-540: Subrutina que comprueba si la 
posición X,Y coincide con un muro. Si es 
así, pone F a uno. 


550-590: Subrutina que elige una 
posición aleatoria y comprueba que no 
coincide con un muro. 


600-630: Subrutina que imprime el 
laberinto. 


640-650: Subrutina que imprime en la 
posición X,Y. 


660-790: Subrutina que lee los datos del 
laberinto. 


Estas líneas conforman el 
laberinto, Puedes cambiarlas, 
dibujando uno nuevo en un 
papel cuadriculado y 
copiándolo en el programa, 
usando O para los muros 
y espacios para los pasillos. 


Las brujas voladoras AA 


Como ayudante en jefe de la Superbruja, tu trabajo consiste en volar en tu escoba 
recogiendo ingredientes frescos para sus podridas pócimas. Sabrás exactamente lo que 
tienes que recoger cada vez porque ella transmite sus repugnantes recetas directamente 
a la pantalla de tu ordenador. 

Los ingredientes como P (Patas de lagarto) y S (Sesos de murciélago) pasan 
rápidamente por debajo de ti según vuelas. Pulsa cualquier tecla para bajar y recoger 
alguno de ellos (debes aterrizar justo encima para hacerlo). Ten cuidado, porque alguno 
de ellos podría ser el Robaescobas, disfrazado. Si aterrizas sobre él, perderás tu escoba. 
(Afortunadamente, comienzas el juego con tres de repuesto.) Debes recoger todo lo que 
necesitas antes de llegar a la guarida o la Superbruja no estará contenta contigo... 


10 6OSUB 700:G0SUB 620 Cómo funciona el programa 

20 LET NW=4:LET N=O:LET FM=50 20: Inicializa variables. (Procura 

30 605UB 53O:LET H=NH A verignar para quí sirve cauca) 

40 60SUB 550 30: H es tu altura sobre el suelo. NH 

50 LET EFSO;LET FF=O;LET HH=H tu nueva altura después de una 
zambullida. 


60 FOR L=1 TO ASLET GUTISO:MEXT 1 
70 FOR 1a1 TO ASLET AS=PS(IIe":":LET Kal 
80 LET Y=1eI:GOSUB GLO:MEXT 1 z 
90 BOSUB 490:G0SUB 430 
100 1F N=FN THEN GOTO 250 
110 1F EF=1 THEN 60TO 230 

(2 120 1F INKEYS(0)="" THEN GOTO 90 
130 LET HH=H-1:60SUB 510 
140 GOSUB 490:G0SUB 430 
150 LET H=H 
160 1F HJO THEN GOTO 130 
170 1F P=17 THEN GOSUB 320 
190 1F FF=1 THEN GOTO 240 
190 GOSUB 530 
200 LET Heh+1:GOSUB 510:605UB 490 
210 LET HH: IE HN THEN GOTO 90 : 
220 S0SUB 430:G01O 200 o 
230 LET AS=*BIEM HECHO * La SUPERBRUJA ESTA , E 

CONTENTA CONTIGO" gos Sjetos hasta que la bruja alcanza la 

240 LET A4="TE QUEDASTE SIN ESCOBAS/*:GOTO 260 muera lt: 
250 LET A8="DENASIADO TARDE ** 230-270: Mensajes de fin 
260 LET X=LLET Y=15:605U 610 
2 Sto 
280 LET A6="L*SLET N=P:G0SUD 610 
290 FOR 181 TO JODO:MENT 1 
200 LET NUSNU-1:1F NU=O THEN LET FFe 


310 RETURN A (2 


320 IF Y=1 THEN G0SUB cal 330-350: Incrementa el número de 


50: EF y FF son switches que se 
ponen a'uno si el juego ha 
terminado. HH es una variable que 
contiene las alturas intermedias al 
subir o bajar. 


60: G(_) cuenta cuántas veces has 
recogido cada tipo de objeto. 


70-80: Imprime la receta. 


¿Demasiado 
difícil para ti? 
Haz el juego más 
fácil incrementando 
el valor de FM 
en la línea 20. 
Esto produce que 
aparezcan más 
objetos entre el 
comienzo y la 
Guarida. 


90-120: Mueve el «suelo» y los 
objetos cruzando la pantalla hasta 
que pulsas una tecla. 


130-160: Mantiene moviéndose el 
suelo y los objetos, y baja a la bruja 
hasta el nivel del suelo. 


170: Si P=17, la bruja ha aterrizado 
sobre un objeto. 


280-310: Subrutina que muestra una 
L si el objeto es el Ladrón de escobas 
disfrazado. Incrementa NW y pone a 
uno FF si se han usado todas las 
escobas. 


320: Subrutina que comprueba si has 
aterrizado sobre el Robaescobas. 


330 LET GIR!=GIR)A1 objetos R recogido € imprime el 
340 LET A6=STRS(GIRII:LET X=23 O 

350 LET Y=1+R:G0SUB 610 
360 LET P=19:605U8 430 
370 LET F=0 

380 FOR 1=1 10 4 


370-420: Comprueba si todos los 
ingredientes para la receta se han 
recogido. 


Intenta cambiar 
las letras por 
símbolos gráficos. 


de 


400 NEXT 1 
410 1F F=4 THEN LET EF=1 
420 RETURN 
430 LET QD=6D+1:1F 6D=6 THEN LET 6D=1 
440 LET AS=6$(0D):LET X=1:LET Y=15:605UB 610 
450 LET AS=" *:LET X=P:LET Y=14:G0SUB 610 
460 LET P=P+1;1F P=20 THEN 60SUB 550 
470 LET X=P:LET A6=C6:608U3 610 
480 RETURN 
490 LET Ag="-Y-=":LET X=16:LET Y=14-HH 
500 GOSUB $10; RETURN 
510 LET Aba" *¡LET X=l6:LET Y=14-N 
520 608UB 610:RETURN 
x01 530 LET NH=INT(RND(1)45+3) 
540 RETURN 
Am1)550 LET R=INT(RNDI1)34)+1 
0560 LET Y=0:1F RND(1)).8 THEN LET U=1 
00570 LET CS=LEFTS(PSIR),AIELET P=1 
500 LET MsH+1 
590 1F N=FN THEN LET C9="LA GUARIDA 
600 RETURN 
e) 610 PRINT TAB(X, Y) AS: RETURN 
A 620 CLS:PRINT:PRINT 
630 PRINT "LA POCION DEBE TENER*:PRINT 
640 FOR 1=1 TO 4 
vemo) 650 LET N=INT(RND(1)%3)+2:LET N(1)=N 
660 PRINT:PRINT Ny” *5PS(1) 
670 NEXT I:PRINT:PRINT 
680 PRINT "PULSA RETURN PARA JUGAR" 
A 690 INPUT X$:CLS:RETURN 
01700 DIN P$(4):DIM N(4);DIM 614) 
0710 DIN 6815) 
720 FOR I=1 TO 4:READ P9(I):NEXT 1 
730 DATA *PATAS DE LAGARTO", *0JOS DE IGUANA", "RAICES DE HIEDRA”, *SESOS DE MURCIELAGO" 


430-480: Imprime una nueva sección 
de suelo y mueve el objeto hacia la 
posición P. Si el objeto ha pasado la 
bruja (es decir P=20), elige un nuevo 
objeto. 


490-500: Imprime la bruja. 
510-520: Borra la bruja. 


530-540: Elige la nueva altura para 
la bruja. 


550: Elige un objeto. 


560: Posibilidad aleatoria de que el 
objeto sea el Robaescobas. 


570: Pone la primera letra del objeto 
en C$ y fija la posición P a uno. 


580: Incrementa el valor del 
contador de objeto, M. 


590: Si M es igual al máximo 
número de objetos permitido, CS se 
hace igual a «La Guarida». 


610: Subrutina general para 
imprimir en una determinada 
posición de pantalla. 


620-690: Elige e imprime la receta. 


700-770: Inicializa los datos para el 
comienzo del programa. PS contiene 
los nombres de los objetos. H$ 
contiene los símbolos del suelo. La 


línea 750 cambia la posición de los q¿%' 
símbolos «>» cada cierto tiempo. E 


¿Qué hará la Superbruja si 
fallas? Intenta añadir comentarios 
y penalidades al juego. 


740 LET H$=")=a==jazaz)am2=)e053)aazet (48 
0750 FOR 1=1 TO S:LET 6916-I)=MIDSIH8, 1,1420) S 
760 NEXT 1:LET Gd=1 S 


770 RETURN 


Líneas de conversión 


MM 120 1F IWKEYS="* THEN GOTO 90 
AA 120 GET 18:1F 18="* THEN GOTO 90 
0 120 18=**:1F PEEK(-16384))127 THEN GET 19 
0 125 1F 18="* THEN GOTO 90 


O 610 VTAD(Y) :NTAB(X):PRINT AS:RETURN 

MA 610 PRINTO Y432+X, AS) :RETURM 

ke 610 LOCATE X,Y:PRINT AS:RETURN 

A 620,690 Sustituir CLS por PRINT CHR9(147) 


177 530,550,560,650 Sustituir RND(1) por AND 

MM 530,550,560,650 Sustituir RMDIM) por RNDIO) 

ke 530,550,560,650 Sustituir RND(1) por RMD(-TIHE) 

1570 LET CSSPSIR, AJSLET Pat 

1 610 PRINT AT Y, XJAS:RETURN 

AA 610 PRINT CHR$(19):FOR LL=1 TO Y:PRINT: 
NEXT:PRINT TAB(X)5A$:RETURN 


O 620,690 Sustituir CLS por HOME 

0700 DIM PS(4,15):DIM M(4);DIM 8(4) 

O 710 DIM 6$15,20) y 

(O 750 FOR 1=1 TO S:LET 6916-11=H8(1 TO 1+20) 


Este es un tipo de 
juego de miniaventura. 
Por si nun j 


tu ordenador con frases de 


2223 EXP 


Cómo funciona el programa Líneas 30-360: SECCION PPAL. DEL JUEGO 


10 60SUB 1580 10: Salta a la subrutina que lee los datos. 


20 RESTORE:FOR 1=1 TO R:READ D9:NEXT 1 

Ando CLS:PRINT "MICROEMISNA" 20-50: Coge una descripción de la habitación 
40 PRINT *===========" y la imprime. 
50 PRINT "ESTAS "¡DS 


60 IF R=20 AND F19)=0 THEN PRINT "ESTAS FRENTE A UN GATO ENORME* 


70 FOR 1=1 10 6 
80 IF L(TI=R AND FII)=0 THEM PRINT "AQUI HAY *s0S(1)3*,* ps no 


90 MEXT 1 


100 PRINT:PRINT "PUEDES IR HACIA *i 
110 FOR I=1 TO LEN(RSIR)) 100-130: Averigua en qué direcciones 


07120 PRINT NIDSIRSIR),1,115*," py o 
130 NEXT 1 


140 PRINT:PRINT * 
150 PRINT M9:LET M9="QUE ?* 150: Mensaje de error. 


160 IF F(16)=1 THEN PRINT "CUENTA ATRAS DE AUTODESTRUCCION EN 3 *5L 


170 PRINT *QUE HACES AHORA": INPUT 06 AS 

180 LET V6="":LET Y6="":LET VB=0:LET OB=0:LET LI=LEN(OS) co 
0 190 FOR 1=L TO LI 
(200 1F MIDS(9$,1,1)=" * AND VS="* THEN LET YS=LEFTS(08,1-1) 
7240 1F NIDS(OS,1é1,1)C)* * AND VSC)** THEN LET WS=RIGHTS(OS,LI-T)SLET 1SLI 

220 NEXT 1 


230 IF W$="" THEN LET VS=0$ 

240 FOR I=L TO Y 230-260: Comprueba si la primera palabra 
250 IF VS=H$(1) THEN LET VB=1 

260 NEXT 1 


270 GOSUB 440 


280 1F VB=0 THEN LET VB=Ve1 
290 1F W8)** AND OB=0 THEN LET M6="ESO ES UNA TONTERIA" 

300 1F Vg="" THEN LET Má=*NECESITO DOS PALABRAS" 8001 Denia los ¡mensajes 
310 1F VB)V AND 0B)0 THEN LET M4="NO PUEDES "+08 

320 1F VB)V AND 08=0 THEN LET MG="NO TIENE SENTIDO" 

330 IF VBCY AMD 0B)0 AND OB(=6 THEN LET M6="NO TIENES "sus 


340 LET L=L-1 340: Contador. 


350 IF VB)14 THEN GOTO 380 350-380: Salta a 
01360 ON VB GOSUB 480,550,550,550,550,550,550,550,760,790,790,860,920,970 una subrutina 

370 GOTO 390 do empleado. 
(1380 ON YB-14 GOSUB 1080,1110,1190,1260,1330,1350,1380,1410,1470,1520,1570 


390 IF F114)=0 AND L)0 THEN GOTO 20 
4400 1F LC1 THEN LET M%="MAS CONSUMIDO TODO TU TIEMPO, EL MAXIMINIMIZADOR SE HA AUTODESTRUIDO!* 
410 PRINT MS:PRINT "FIN DEL JUEGO" 


420 IF L)0 THEN GOSUB 1520 390-430: Fin del juego. 
430 STOP Teclea INVENTARIO si 

quieres una lista de 

lo que llevas contigo. 


440 FOR I=1 TO Y 


50 1F VS=08(1) THEN LET 0B=1 A 
é )-470: ii ba 
460 NEXT 1 urda palabra este en la eta de objetos 


470 RETURN del ordenador. 
[= a) 


480 PRINT "LLEVAS ; * 

490 FOR I=1 TO 6 

500 1F L(1)=25 THEN PRINT 09(1)5*,*4 . 480-540: Subrutina que te indica lo 
510 NEXT 1 Z que llevas contigo. 

520 LET M9="*:PRINT 

530 GOSUB 1560 

540 RETURN 


550 LET D=0 550-750: Subrutina que procesa 
540 1F 0B=0 THEN LET D>VB-2 rd 
570 1F 08>24 THEN LET D=0B-24 
580 1F R=19 AND D=6 THEM LET Dx4 
590 1F R=20 AND D=6 THEN LET Dx4 
400 1F R=20 AND D=S THEN LET D=3 
610 1F F(91=0 AND R=20 AND D=4 THEN LET H6="EL GATO NO TE DEJARA": RETURN 
00.620 1F R=2 AND L(1)=25 AND D=3 THEN LET M6=M16:RETURN 
630 1F R=7 AND F(3)=0 THEN LET MS="UN RATON ENFADADO CIERRA TU CAMINO" RETURN. 
640 LET FI13)=0:LET RL=LEN(RSIR)) 
650 FOR 1=1 TO RL 
0660 LET US=MIDS(R$(R),1,1) Si usas un VIC 20, 
670 1F (U=*"N* AND D=1 AND F(13)=0) THEN LET R=R-6:LET F(13)=1 peccsitacós la. 
680 1F (U6="S* AND D=2 AND F113)=0) THEN LET R=ReG:LET F(13)=1 para este juego. 
690 1F (US="0" AND D=3 AND F(13)=0) THEN LET R=R-1:LET F(13)=1 
700 1F (US="E" AND D=4 AND F(13)=0) THEN LET R=R+IsLET F(13)=1 
710 NEXT 1 


¿Has jugado unas cuantas veces 


20 y piensas que no serás capaz 
720 LET N6="0K de ganar? Puedes darte 


730 1F F(13)=0 THEN LET MS="NO PUEDES IR POR ESE CAMINO" más tiempo, si quieres, poniendo 
un valor más alto para L 


740 1F DC1 THEN LET Mé="ADONDE VAS?" en la mitad de la línea 1910. 
750 RETURN 


760 LET M6="ESTAS PRACTICANDO PARA LAS OLIMPIADAS?" 

370 1F F(10)=1 AND (R=9 OR R=3) THEN LET M="QUIERES SALTAR DEMASIADO LEJOS* 
780 RETURN 
1790 1F 03=8 THEN LET M5=US+" EL "+US+M26:RETURN 

800 1F 0B)6 THEN LET N$="NO PUEDO COGER "+VS;RETURN 

810 1F L(0B)<)R THEN LET MS="NO ESTA AQUI" 

820 1F F(0B)<)0 THEN LET MS="QUE "+us+">* 

830 1F L(08)=25 THEN LET MS="YA LO TIENES" 

840 1F 0B)0 AND L(0B)=R AND F(0B)=0 THEN LET L(0B)=25:LET M6=M36+YS 
850 RETURN 

860 1F L(0B)(25 THEN RETURN 

870 LET Mó="REALMENTE NO!'*:1F 0BX)1 THEN RETURN 

880 PRINT "DONDE PONGO LA LLAVE" 

890 INPUT WS: 1F W$)**" THEN GOSUB 440 

900 IF (08=8 OR U6="EN *+0$18)) THEN LET N9=M4S;LET F(I1S)=1:LET L(1)=R 
910 RETURN 

920 1F F(11)=0 AND L(7)=25 THEN LET F(11)=1:LET F(3)=0;LET L(3)=0:LET M6=M3$ 
930 IF F(11)=1 AND L(7)=25 AND R=20 THEN LET FI9)=1:LET M6=M6+M6$ 

940 IF R=21 AND 08=24 THEN LET F(4)=0:LET M9="NAY UN MONTON DE POLVO" 
950 IF OB=16 THEN GOSU3 970 

960 RETURN 

970 LET M5="NADA INTERESANTE" 

980 IF OB=16 AND R=12 THEN LET F(2)=0;LET M9="ES UN MICRO - VCR" 

990 1F 0B=24 AND R=21 THEN LET M6="ALGO DENTRO" 

1000 IF 03=19 AND R=24 THEN GOSUB 1410 

1010 1F 03=23 AND R=12 THEN LET M$=M75 

1020 1F 08=7 THEN LET MS="CONTIENE UNA NOSCA MUY GRANDE" 

1030 IF 03=9 AND R=20 AND F(9)=0 THEN LET M6="MUERDE Y ARANA!" 

1040 1F 03=4 THEN G0SUB 1080 

1050 1F OB=1 AND L(1)=25 THEN LET Mó="TIENE GRABADO El NUMERO "111" 
1060 1F OB=6 AND L1(6)=25 THEN LET Mó="HAY UN GRAN BOTON ROJO" 

1070 RETURN 

1080 LET N$=M8S;1F 0B()4 THEN RETURN 760-1500: Son subrutinas de los verbos 


1090 1F L(0B)=25 THEN LET MS=MFS usados en el programa. Busca las líneas 
0 seo o 


1110 1F OB()5 THEN LET N$="NO SE PUEDE ATAR *sUS:RETURN 
1120 1F L15)(25 THEN RETURN 
1130 LET UW6="":PRINT “DONDE ATO EL HILO?" 
1140 INPUT YS clio 
1150 1F 4S)** THEN GOSUB 440 
1160 LET NS="NO PUEDO ATARLO A *+Us 
1170 1F 0B=13 AND R=9 THEN LET F(S)=1:LET L(SI=0:LET MS=M8S 
1180 RETURN 
1190 1F 0B=5 AND FI5)=0 THEN LET M6="N0 ESTA ATADO A NADA!" 
1200 1F 0B=5 AND R=9 AND F(S)=1 THEN LET R=S:LET FI1O)=0:LET MS="0K*RETURN 
1210 1F 0B=5 AND R=S AND F(S)=1 THEN LET R=9:LET FIIO)=1:LET N6="0k" 
1220 1F 0B=13 AND R=9 THEN LET M6="ESTA DEMASIADO RESBALADIZO PARA TREPAR* 


1230 1F 0B=4 AND R=19 THEN LET 0B=30:60SUB 550 
1240 1F OB=4 AND R=20 THEM LET OB=29:60SUB 550 e 

1250 RETURN explica tanto como los 

1260 1F 0BC)6 OR L(6)()25 THEN RETURN O AS e 

1270 LET Y6="*:PRINT *DOMDE APUNTO?" el juego. Intenta averiguar 
1280 INPUT US pue de haber jugado: 

1290 IF W4$)*" THEN GOSUB 440 varias veces 

1300 1F 0B=22 THEN LET F(6)=1 

1310 LET M$="NUY BIEN* 

1320 RETURN 

1330 1F 0B=3 AND L(0B)=25 THEN LET L(0B)=0:LET M$="MUNCH CHOMP* 

1340 RETURN 
11350 1F (0B=19 OR 0B=17) AND R=24 AND L(1)(25 THEN LET MS=M9$:LET L=L-12:LET F(16)=1 
1360 IF (0B=19 OR OB=17) AND R=24 AND L(1)=25 THEN LET F(12)=1:LET M6=MHS 

1370 RETURN 

1380 1F 0B=3 AND R=7 AND L(0B)=25 THEN LET F(3)=1:LET L(0B)=0:LET B=B+*1:LET M6=MAS 
1390 1F L(0B)=25 THEN LET L(OB)=R:LET M$="HECHO* 

1400 RETURN 

1410 1F R()24 THEN LET M$="NO MAY DONDE TECLEAR! ":RETURN 

1420 1F F(12)=0 THEN LET M$="ESTE TERMINAL NO ESTA ACTIVADO"*RETURN 

1430 LET M$="RESPUESTA DEL TERMINAL :"+4S 

1440 IF 0B=18 THEN LET M$="PALABRA CLAVE ACEPTADA*:LET F(17)=1 

1450 1F 08=20 THEN LET NS="1DENTIFICADOR DEL TERMINAL" 

1460 RETURN 

1470 1F R=14 AND OB=11 AND L(8)=22 THEN LET L(8)=14:LET M6=MBS+NCS:RETURN 

1480 1F R=14 AND OB=11 AND L(8)=14 THEN LET L!8)=22:LET MS=MBS+NDS 

1490 1F F115)=1 THEN LET L(1)=L(8) 

1500 1F 0B=21 AND F(6)=1 AND L(6)=25 AND R=18 AND F(17)=1 THEN LET B=B+10:LET M6=MES:LET F/14)=1 


1510 RETURN 1510-1560: Subrutina 
1520 LET $=0:FOR 1=1 TO 6 deltarteo! 

1530 1F L(1)=25 THEN LET S=S+1 

1540 NEXT 1 

1550 LET S=S+B:PRINT *TU PUNTUACION = *¡S 

1560 1F F(14)=0 THEN PRINT "PULSA RETURN PARA CONTINUAR”: INPUT 0$ 


E 1570-1590: Iniciali. variabl 
21580 LET V=24:LET Y=31:LET 6=8 gi 


1590 DIM R$124):DIM 0$(W):DIM H5(Y) 


1600 DIM L(G):DIM F117) 

1610 DATA "DENTRO DE LA RATONERA - ESTA MUY OSCURO" 

1620 DATA "EN LA RATONERA DE UNA ESQUINA DE LA HABITACION", "EN EL BORDE DE UNA MESA ALTA” 

1630 DATA "AL FINAL DE UN PASILLO*,”EN UN ALMACEN*,*EN LA COCINA" 

1640 DATA "MAS AL FONDO DE UN APESTOSO Y OSCURO TUNEL”, "AL LADO DE LA VIA DEL TREN* 

1650 DATA "EN Lá BASE DE UN ARBOL ALTO DE PLASTICO EN EL BORDE DE UNA MESA ALTA 

1660 DATA "EN EL EXTERIOR DE UNA CASA EXTRAVAGANTEMENTE PROPORCIONADA QUE TIENE LA PUERTA ABIERTA" 

1670 DATA "EN UNA HABITACION AMARILLA", "AL LADO DE UN TELEVISOR Y UN CASSETTE" 

1680 DATA "AL FINAL DE UN OSCURO TUNEL” 

1690 DATA "AL LADO DE UN GRAN INTERRUPTOR CONECTADO A LAS VIAS DEL TREN" 
A 1700 DATA *A LO LARGO DE LA SERPENTEANTE PISTA" 

1710 DATA "AL FINAL DE LA LINEA-LA PISTA DESAPARECE A TRAVES DE UN AGUJERO EN LA PARED" 

1720 DATA "DEBAJO UNA PARED REPLETA DE PANTALLAS DE VIDEO SOBREDIMENSIONADAS* 

1730 DATA *DE PIE SOBRE EL MAXIMININIZADOR* 

1740 DATA "EN UNA ESTANTERIA DE APARATOS DESORDENADOS - HAY UN TABURETE AL LADO* 


1600-1870: Líneas de datos. 
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1750 DATA "SOBRE UN TABURETE BAJO* 
1760 DATA "SOBRE UNA CAJA VOLCADA DE COMPONENTES ELECTRONICOS ROTOS" 
1770 DATA "EN UN AGUJERO EN LA PARED DEL QUE EMERGE UNA LINEA DE FERROCARRIL" 
1780 DATA "EN LA BASE DE UN SILLON GIRATORIO" 
1790 DATA "EN UN TERMINAL DE ORDENADOR CON CIERRE DE SEGURIDAD: 
1800 DATA 16,12,3,21,5,17,19,14 
1810 DATA "INVENTARIO", *1R*,"N*,*8",*0*,*E",*A*,*D*, "SALTAR", *COGER”, "TOMAR", *PONER*, "ABRIR" 
1820 DATA "EXAMINAR", "LEER", "ATAR", “TREPAR”, "APUNTAR", *COMER*, "ABRIR-CERRADURA*, *DEJAR*, *TECLEAR* 
1850 DATA "NO", "LLAVE", "CASSETTE", "QUESO*, "PAPEL", "HILO", "CONTROL=REMOTO" 
1840 DATA "EO*,"NO*, "NS", "NE", "EO",*0*,*S*,*S*, "NED", "EDAD, "EO*, "EO*, "NEO" 
A 1850 DATA *NO*, LLAVE”, "CASSETTE", "QUESO", *PAPEL*, "HILO”, "CONTROL-REMOTO* 
1860 DATA "BOTELLA", "TREN","GATO", "PUERTA*, "INTERRUPTOR*, "TUNEL", "ARBOL", "AGUJERO", "RATON" 
1870 DATA *YIDEO*, "ORDENADOR", "ESPECIERO*, "TERMINAL*,*111*,*BOTON”, *NAXIMINIMIZADOR* 


1880 DATA , 4 , , , "ABAJO", "TABURETE 


1890 FOR I=1 TO 24:READ DS: MEX G:READ L(I):NEXT 1 1880-1900: Lee datos. 
1900 FOR 1=1 TO V:READ R$(1):NEXT 1:FOR I=1 TO 24:READ R$(1):NEXT 1 


1910 FOR I=1 TO V:READ OS(1):NEXT 1:LET F110)=15LET FI4)=1:LET F(2)=1 

021920 LET R=11:LET B=8;LET L=100:LET M8="DESPIERTAS...*:LET NH8="TERMINAL ACTIVO" 
1930 LET MI$="NO PUEDES COGER LA LLAVE*:LET M2%=" EN? NUY DIVERTIDO!” 

1940 LET M3S="TIENES *:LET M4$="BIEN HECHO! *:LET M JADA INTERESANTE * 
1950 LET M5$="UNA MOSCA VUELA CON UN FUERTE ZUMBID T MBS="EL TREN CAMINA * 
1960 LET M7$="SOLO UNA CAJA CON UNA FOTO CLAVADA":LET M9%="4! SABOTAJE !4* 
1970 LET M86="ESTA BIEN ATADO. ":LET M68=" Y EL BATO LO PERSIGUE!" 

021980 LET MAS="EL RATON HUYE CON EL.*:LET MF%="PALABRA CLAVE DEL TERMINAL=" +0$118) 
1990 LET NCS="SE VE Y PARA AQUI":LET MDS="LEJOS Y DENTRO DE UN TUNEL* 


32000 LET MES="FUNCIONA EL RAYO DEL MAXIMINIMIZADOR. ESTAS VOLVIENDO A TU TAMANO NORMAL * 
2010 RETURN 1910-2010: Define mensajes. 


NOTA IMPOR 


arios de Comu 
430 Reeaplazar CLS por PRINT CHR$1147) Pa as un 064 
020 Reemplazar CLS por HOME vIE20 
Para los usuarios del Spectrun 
120 PRINT RSIR, 115% as cas 1500, 1710 
190 FOR 1=1 TO L1-1 y 1860. 


200 1F Q8(1)=" * AND YS="*" THEN LET V6=081 TO 1-1) 

210 1F Q6(1+1)<)" * AND Y8<)** THEN LET VS=Q6(1+1 TO ):LET laL1-1 

235 1F LEM(Y9)<7 THEN LET V8=y8+" * 

235 1F LEN(VS)<7 THEN LET VS=U8+" ":GOTO 235 

360 GOSUB 480%(VB=1)+55041VB>1 AND VB<9)+76041(VB=9)+79041VB=10 OR VB=11) 
+860+(VB=12)+9204(VB=13) +9704(VB=14) 

380 GO0SUB 10804(VB=15)+1100+(VB=16)+1180%(VB=17)+12504(VB=18)+13204(YB=19)+13404(VB=20) 
+137041YB=21)+1400+(4B=22) +14604(VB=23)+15104(VD=24) +15604+(VB=25) 

440 IF LEN(WS)X14 THEN LET US=4$+" ":GOTO 440 

445 FOR I=1 TO Y 

560 LET US=RSiR, 1) 

900 IF (0B=8 OR WS="EN *+0$18)+* * THEN LET MS="BIEN HECHO! *:LET F(45)=1:LET L(1)=R 

1590 DIM R$(24,4):DIM 0510, 14):DIN H$(W,7) 

1920 LET R=11:LET B=8:LET L=100:LET Mb="DESPIERTAS...* 

Lineas 620,770,840,920,930,1010,1080,1170,1350,1360,1380,1470,1480,1500 

Sustituir de MIS a MHS en estas lineas por el texto de las lineas 1920 a 2000 

Ej. 620 1F R=2 AND L(1)=25 AND D=3 THEN LET M8="NO PUEDES COGER LA LLAVE*:RETURN 

Quitar las lineas 1930 a 2000 


Respuestas a las cuestiones 
planteadas 


Aquí están las respuestas a algunas de las 
cuestiones planteadas en este libro, 


La Pirámide de las Calaveras 


Para añadir más calaveras, cambia el 5 de 
la línea 260 por un número más alto. 


Los límites del número que habrá que 
alcanzar, se definen en la línea 20. Tal 
como está el programa, el número elegido 
se mantiene entre 10 y 39. Si cambias el 
30 por 40, tendrás un número entre 10 y 
49. Si también cambias el 10 por 20, 
tendrás un número entre 20 y 49. 


Combate de monstruos 

Para incrementar el número de asaltos, 
cambia el número 11 de las líneas 260 y 
550 por un número más alto. (Debe ser el 
mismo en ambas.) 

Si incrementas el número de asaltos, 
puedes querer más oportunidades de usar 
el Botón del Pánico. Para hacerlo, cambia 
el número 4 de la línea 440 por un número 
más alto. 


Tiburón 

Para hacer más frecuente el movimiento 
del cazador, disminuye el valor de U en la 
línea 30 a, por ejemplo, 0.8. 


Las brujas voladoras 
Si fallas, el programa salta a la línea 240 
ó 250 para imprimir un mensaje. Cambia 
éstas por lo que tú quieras. 


JUEGOS DE ORDENADOR 


Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un glosario de los términos más usuales en BASIC. 


Títulos de la serie 


